<%@ LANGUAGE="VBSCRIPT" %>
<%'  ------------------------------------------------------------
  '  doccnclckout.asp 
  '  ------------------------------------------------------------
  '  VCS INFO:
  '  
  '  $Revision:   1.14  $
  '  $Date:   04 Aug 1999 10:40:10  $
  '  $Author:   shsieh  $
  '  $Workfile:   doccnclckout.asp  $
  '  ------------------------------------------------------------
  '  All Rights Reserved.  Copyright (c) 1988-1998 FileNET Corp.
  '  ------------------------------------------------------------
  '%>

<%
DebugFlag=0
DocID = Request.QueryString("DocID")
RedirAddr=Request.QueryString("Redirect")
LibraryLogonID = Session("LibraryLogonID")
set LibraryObj = Server.CreateObject("IDMObjects.Library")
LibraryObj.LogonID = LibraryLogonID
Username = Session("Username")
set objDoc = LibraryObj.GetObject(Application("idmObjTypeDocument"), DocID)
docname = objDoc.Name 
%>
<%
if DebugFlag then 
%>
CANCEL CHECKOUT: <br>
Document ID <%= DocID %> <br>
DocName <%= docname %> <br>
DocLabel <%= objDoc.Label %> <br>
<%
end if 
' fileName = objDoc.GetSegmentFileName(1)
set objVerDoc = objDoc.Version
objVerDoc.CancelCheckout

Response.Redirect RedirAddr + "?Type=1&Ident=" + DocID ' "mz_chkoutlist.asp"
%>

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<HTML>

<HEAD>
  <META NAME="GENERATOR" CONTENT="Adobe PageMill 2.0 Mac">
  <TITLE>Cancel CheckedOut Document</TITLE>
</HEAD>

<BODY BGCOLOR="#ffffff">


</BODY>
</HTML>
